home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / Mark Pilgrim / Shutdown FX 2.1 / source / sfx startup app ƒ / Shell ƒ / file interface.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-10-30  |  1.5 KB  |  46 lines  |  [TEXT/KAHL]
  1. /**********************************************************************\
  2.  
  3. File:        file interface.c
  4.  
  5. Purpose:    This module handles the standard file package (open & save
  6.             dialogs) and returns an FSSpec to deal with.
  7.  
  8. This program is free software; you can redistribute it and/or modify
  9. it under the terms of the GNU General Public License as published by
  10. the Free Software Foundation; either version 2 of the License, or
  11. (at your option) any later version.
  12.  
  13. This program is distributed in the hope that it will be useful,
  14. but WITHOUT ANY WARRANTY; without even the implied warranty of
  15. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16. GNU General Public License for more details.
  17.  
  18. You should have received a copy of the GNU General Public License
  19. along with this program in a file named "GNU General Public License".
  20. If not, write to the Free Software Foundation, 675 Mass Ave,
  21. Cambridge, MA 02139, USA.
  22.  
  23. \**********************************************************************/
  24.  
  25. #include "file interface.h"
  26. #include "environment.h"
  27. #include "util.h"
  28.  
  29. pascal OSErr MyMakeFSSpec(short vRefNum, long parID, Str255 fileName,
  30.     FSSpecPtr myFSS)
  31. /* a standard function for creating an FSSpec out of its three component parts.
  32.    if the system supports FSSpecs, we let it do the work; otherwise we have to
  33.    do it manually. */
  34. {
  35.     if (gHasFSSpecs)
  36.         return FSMakeFSSpec(vRefNum, parID, fileName, myFSS);
  37.     else
  38.     {
  39.         myFSS->vRefNum=vRefNum;
  40.         myFSS->parID=parID;
  41.         Mymemcpy((Ptr)(myFSS->name), (Ptr)fileName, fileName[0]+1);
  42.     }
  43.     
  44.     return noErr;
  45. }
  46.